unit DEMIRBAS1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TFRMDEMIRBAS1 = class(TForm)
    D1: TEdit;
    D2: TEdit;
    D3: TEdit;
    D4: TEdit;
    D5: TEdit;
    D6: TEdit;
    D7: TEdit;
    D8: TEdit;
    D9: TEdit;
    D10: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    D21: TEdit;
    D22: TEdit;
    D23: TEdit;
    D24: TEdit;
    D25: TEdit;
    D26: TEdit;
    D27: TEdit;
    D28: TEdit;
    D29: TEdit;
    D30: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    D11: TEdit;
    D12: TEdit;
    D13: TEdit;
    D14: TEdit;
    D15: TEdit;
    D16: TEdit;
    D17: TEdit;
    D18: TEdit;
    D19: TEdit;
    D20: TEdit;
    A1: TEdit;
    A2: TEdit;
    A3: TEdit;
    A4: TEdit;
    A5: TEdit;
    A6: TEdit;
    A7: TEdit;
    A8: TEdit;
    A9: TEdit;
    A10: TEdit;
    A11: TEdit;
    A12: TEdit;
    A13: TEdit;
    A14: TEdit;
    A15: TEdit;
    A16: TEdit;
    A17: TEdit;
    A18: TEdit;
    A19: TEdit;
    A20: TEdit;
    D31: TEdit;
    D32: TEdit;
    D33: TEdit;
    D34: TEdit;
    D35: TEdit;
    D36: TEdit;
    D37: TEdit;
    D40: TEdit;
    D38: TEdit;
    D39: TEdit;
    A21: TEdit;
    A22: TEdit;
    A23: TEdit;
    A24: TEdit;
    A25: TEdit;
    A26: TEdit;
    A27: TEdit;
    A28: TEdit;
    A29: TEdit;
    A30: TEdit;
    A31: TEdit;
    A32: TEdit;
    A33: TEdit;
    A34: TEdit;
    A35: TEdit;
    A36: TEdit;
    A37: TEdit;
    A38: TEdit;
    A39: TEdit;
    A40: TEdit;
    BitBtn1: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRMDEMIRBAS1: TFRMDEMIRBAS1;

implementation

uses DEMIRBAS;

{$R *.dfm}

procedure TFRMDEMIRBAS1.FormClose(Sender: TObject;
  var Action: TCloseAction);
  

  begin
FRMDEMIRBAS.CheckListBox1.Items.Clear;
FRMDEMIRBAS.ListBox1.Clear;
IF NOT (D1.Text='') AND NOT (A1.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D1.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A1.TEXT);
END;
IF NOT (D2.Text='') AND NOT (A2.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D2.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A2.TEXT);
END;
IF NOT (D3.Text='') AND NOT (A3.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D3.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A3.TEXT);
END;
IF NOT (D4.Text='') AND NOT (A4.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D4.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A4.TEXT);
END;
IF NOT (D5.Text='') AND NOT (A5.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D5.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A5.TEXT);
END;
IF NOT (D6.Text='') AND NOT (A6.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D7.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A7.TEXT);
END;
IF NOT (D8.Text='') AND NOT (A8.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D8.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A8.TEXT);
END;
IF NOT (D9.Text='') AND NOT (A9.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D9.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A9.TEXT);
END;
IF NOT (D10.Text='') AND NOT (A10.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D10.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A10.TEXT);
END;
IF NOT (D11.Text='') AND NOT (A11.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D11.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A11.TEXT);
END;
IF NOT (D12.Text='') AND NOT (A12.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D12.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A12.TEXT);
END;
IF NOT (D13.Text='') AND NOT (A13.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D13.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A13.TEXT);
END;
IF NOT (D14.Text='') AND NOT (A14.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D14.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A14.TEXT);
END;
IF NOT (D15.Text='') AND NOT (A15.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D15.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A15.TEXT);
END;
IF NOT (D16.Text='') AND NOT (A16.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D16.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A16.TEXT);
END;
IF NOT (D17.Text='') AND NOT (A17.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D17.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A17.TEXT);
END;
IF NOT (D18.Text='') AND NOT (A18.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D18.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A18.TEXT);
END;
IF NOT (D19.Text='') AND NOT (A19.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D19.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A19.TEXT);
END;
IF NOT (D20.Text='') AND NOT (A20.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D20.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A20.TEXT);
END;
IF NOT (D21.Text='') AND NOT (A21.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D21.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A21.TEXT);
END;
IF NOT (D22.Text='') AND NOT (A22.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D22.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A22.TEXT);
END;
IF NOT (D23.Text='') AND NOT (A23.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D23.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A23.TEXT);
END;
IF NOT (D24.Text='') AND NOT (A24.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D24.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A24.TEXT);
END;
IF NOT (D25.Text='') AND NOT (A25.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D25.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A25.TEXT);
END;
IF NOT (D26.Text='') AND NOT (A26.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D26.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A26.TEXT);
END;
IF NOT (D27.Text='') AND NOT (A27.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D27.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A27.TEXT);
END;
IF NOT (D28.Text='') AND NOT (A28.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D28.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A28.TEXT);
END;
IF NOT (D29.Text='') AND NOT (A29.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D29.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A29.TEXT);
END;
IF NOT (D30.Text='') AND NOT (A30.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D30.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A30.TEXT);
END;
IF NOT (D31.Text='') AND NOT (A31.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D31.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A31.TEXT);
END;
IF NOT (D32.Text='') AND NOT (A32.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D32.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A32.TEXT);
END;
IF NOT (D33.Text='') AND NOT (A33.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D33.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A33.TEXT);
END;
IF NOT (D34.Text='') AND NOT (A34.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D34.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A34.TEXT);
END;
IF NOT (D35.Text='') AND NOT (A35.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D35.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A35.TEXT);
END;
IF NOT (D36.Text='') AND NOT (A36.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D36.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A36.TEXT);
END;
IF NOT (D37.Text='') AND NOT (A37.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D37.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A37.TEXT);
END;
IF NOT (D38.Text='') AND NOT (A38.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D38.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A38.TEXT);
END;
IF NOT (D39.Text='') AND NOT (A39.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D39.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A39.TEXT);
END;
IF NOT (D40.Text='') AND NOT (A40.Text='') THEN
BEGIN
FRMDEMIRBAS.CheckListBox1.Items.Add(D40.Text);
FRMDEMIRBAS.ListBox1.Items.Add(A40.TEXT);
END;


end;

end.
